home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MHDRUG.PRG < prev    next >
Text File  |  1986-03-12  |  896b  |  30 lines
  1. * MHDRUG    DB3 PLUS                                 REVISION 03/08/86
  2. *
  3. * Module to choose a single drug by generic name or id number,
  4. * and then pass choice to MHDISP.PRG for display of drug data.
  5. *
  6. PUBLIC key, datafile
  7. choice = [ ]
  8. line = 0
  9. CLOSE DATABASES
  10. DO WHILE .NOT. choice $ '012'
  11.    ? 'DRUG SELECTION MENU'
  12.    ? '0. RETURN TO PREVIOUS MENU..............'
  13.    ? '1. SELECT BY IDNO.......................'
  14.    ? '2. SELECT BY GENERIC NAME...............'
  15.    WAIT ' 'TO choice
  16.    IF choice = '0'
  17.       RETURN
  18.    ENDIF
  19.    IF choice = '1'
  20.       ACCEPT 'Type in the identification number: ' TO key
  21.       datafile = 'MHDRUG INDEX MHDRUGID'
  22.    ENDIF
  23.    IF choice = '2'
  24.       ACCEPT 'Type in the generic name: ' TO key
  25.       datafile = 'MHDRUG INDEX MHGENAME'
  26.    ENDIF
  27. ENDDO WHILE .NOT. choice $ '012'
  28. DO MHDISP
  29. RETURN
  30.